home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Service / Leserecke / Detlef Kahner / CF-Erfassungsprogramm / Make it english... / cards.xml < prev    next >
Text File  |  1997-03-05  |  51KB  |  890 lines
  1. card_2324.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>2324</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2808</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3118.css" />
  12.     <part>
  13.         <id>1</id>
  14.         <type>field</type>
  15.         <visible> <true /> </visible>
  16.         <dontWrap> <false /> </dontWrap>
  17.         <dontSearch> <false /> </dontSearch>
  18.         <sharedText> <false /> </sharedText>
  19.         <fixedLineHeight> <false /> </fixedLineHeight>
  20.         <autoTab> <false /> </autoTab>
  21.         <lockText> <false /> </lockText>
  22.         <rect>
  23.             <left>0</left>
  24.             <top>0</top>
  25.             <right>512</right>
  26.             <bottom>84</bottom>
  27.         </rect>
  28.         <style>scrolling</style>
  29.         <autoSelect> <false /> </autoSelect>
  30.         <showLines> <false /> </showLines>
  31.         <wideMargins> <false /> </wideMargins>
  32.         <multipleLines> <false /> </multipleLines>
  33.         <reservedFamily> 0 </reservedFamily>
  34.         <titleWidth>0</titleWidth>
  35.         <icon>0</icon>
  36.         <textAlign>left</textAlign>
  37.         <font>Geneva</font>
  38.         <textSize>12</textSize>
  39.         <textStyle>plain</textStyle>
  40.         <textHeight>16</textHeight>
  41.         <name></name>
  42.         <script></script>
  43.     </part>
  44.     <part>
  45.         <id>2</id>
  46.         <type>field</type>
  47.         <visible> <true /> </visible>
  48.         <dontWrap> <false /> </dontWrap>
  49.         <dontSearch> <false /> </dontSearch>
  50.         <sharedText> <false /> </sharedText>
  51.         <fixedLineHeight> <false /> </fixedLineHeight>
  52.         <autoTab> <false /> </autoTab>
  53.         <lockText> <false /> </lockText>
  54.         <rect>
  55.             <left>0</left>
  56.             <top>83</top>
  57.             <right>512</right>
  58.             <bottom>182</bottom>
  59.         </rect>
  60.         <style>scrolling</style>
  61.         <autoSelect> <false /> </autoSelect>
  62.         <showLines> <false /> </showLines>
  63.         <wideMargins> <false /> </wideMargins>
  64.         <multipleLines> <false /> </multipleLines>
  65.         <reservedFamily> 0 </reservedFamily>
  66.         <titleWidth>0</titleWidth>
  67.         <icon>0</icon>
  68.         <textAlign>left</textAlign>
  69.         <font>Geneva</font>
  70.         <textSize>12</textSize>
  71.         <textStyle>plain</textStyle>
  72.         <textHeight>16</textHeight>
  73.         <name></name>
  74.         <script></script>
  75.     </part>
  76.     <part>
  77.         <id>3</id>
  78.         <type>field</type>
  79.         <visible> <true /> </visible>
  80.         <dontWrap> <false /> </dontWrap>
  81.         <dontSearch> <false /> </dontSearch>
  82.         <sharedText> <false /> </sharedText>
  83.         <fixedLineHeight> <false /> </fixedLineHeight>
  84.         <autoTab> <false /> </autoTab>
  85.         <lockText> <false /> </lockText>
  86.         <rect>
  87.             <left>0</left>
  88.             <top>181</top>
  89.             <right>512</right>
  90.             <bottom>259</bottom>
  91.         </rect>
  92.         <style>scrolling</style>
  93.         <autoSelect> <false /> </autoSelect>
  94.         <showLines> <false /> </showLines>
  95.         <wideMargins> <false /> </wideMargins>
  96.         <multipleLines> <false /> </multipleLines>
  97.         <reservedFamily> 0 </reservedFamily>
  98.         <titleWidth>0</titleWidth>
  99.         <icon>0</icon>
  100.         <textAlign>left</textAlign>
  101.         <font>Geneva</font>
  102.         <textSize>12</textSize>
  103.         <textStyle>plain</textStyle>
  104.         <textHeight>16</textHeight>
  105.         <name></name>
  106.         <script></script>
  107.     </part>
  108.     <part>
  109.         <id>5</id>
  110.         <type>field</type>
  111.         <visible> <true /> </visible>
  112.         <dontWrap> <false /> </dontWrap>
  113.         <dontSearch> <false /> </dontSearch>
  114.         <sharedText> <false /> </sharedText>
  115.         <fixedLineHeight> <false /> </fixedLineHeight>
  116.         <autoTab> <false /> </autoTab>
  117.         <lockText> <false /> </lockText>
  118.         <rect>
  119.             <left>0</left>
  120.             <top>259</top>
  121.             <right>512</right>
  122.             <bottom>342</bottom>
  123.         </rect>
  124.         <style>scrolling</style>
  125.         <autoSelect> <false /> </autoSelect>
  126.         <showLines> <false /> </showLines>
  127.         <wideMargins> <false /> </wideMargins>
  128.         <multipleLines> <false /> </multipleLines>
  129.         <reservedFamily> 0 </reservedFamily>
  130.         <titleWidth>0</titleWidth>
  131.         <icon>0</icon>
  132.         <textAlign>left</textAlign>
  133.         <font>Geneva</font>
  134.         <textSize>12</textSize>
  135.         <textStyle>plain</textStyle>
  136.         <textHeight>16</textHeight>
  137.         <name>DeleteAdvert</name>
  138.         <script></script>
  139.     </part>
  140.     <content>
  141.         <layer>card</layer>
  142.         <id>1</id>
  143.         <text>To give a frictionless und error-free import of the software lists, was the ASCII import developed. With this can data for the software list on disk delivered.ONLY PRIVATE OFFERS ARE COST-FREE!Important at this data take over is, to follow the rules cogent.The file header has the follwing Rules. The particular dates are available as variables which at the head of ev¬¥ry file had to defined.Allowed variables are hereby:#VORNAME        - first name#NAME              - Name#STRASSE        - Street and House number#LAND              - country abbrevation (D, CH, A, NL and so on)#PLZ                - Postal code#ORT                - home#TELEFON         - telephone number (Form xxxxx/xxxxx, not (xxxxx)xxxxx)#VERMERK        - note to the telephone number, e. g. "from 18 o¬¥clock"#TELEFAX         - Telefax number#PSEUDO          - Pseudo#ZEICHENSATZ - font definition (absolutely Had To! "√ü,¬ß")#ZEITSCHRIFT  - intern variable for associate, absolut write!If a variable is not used, leave it simply out. But the variables for font definition and ZEITSCHRIFT are absolutely required.The font definition variable are used to identify the used font definition. The letters "√ü,¬ß" had to write after this variable, with comma seperated. If one of this letters can not be typed, type instead a zero (0).</text>
  144.     </content>
  145.     <content>
  146.         <layer>card</layer>
  147.         <id>2</id>
  148.         <text>                       The software list:                      -----------------You had to follow the sequence of the fields. Also the maximal length of any field, because else contents be cutted:  1.  platform                        max. 5 chars ("Mac")  2.  head rubric                    number with 3 digits *  3.  sub rubric                      number with 3 digits *  4.  product name                 max. 26 chars  5.  note                               max. 20 chars  6.  manufacturer                max. 15 chars  7.  OS                                 max.  5 chars  8.  Language                       max.  3 chars (Abbr. "D", "E",...)  9.  kind of disk                   max.  5 chars (e. g. "CD")10.  kind of software                    2 chars ("KW" = commercial, ...)11.  state                                      1 char ("N" = New, "G" = second-hand)12.  cost                                       1 char 13.  kind of price                  max. 7 char* These numbers are described in the magazine.The price is declared with max. 4 digits before the comma and 2 digits after the comma angegeben. The seller in addition had to fill out in the header the "Coupon for software list (Coupon f√ºr Softwareliste)", which is in every CF founded. An exact description is in every CF edition.</text>
  149.     </content>
  150.     <content>
  151.         <layer>card</layer>
  152.         <id>3</id>
  153.         <text>On the disk may only found the text files and for Backup may else one or two copies of these files in a SIK directory.All software titles which be offers to sell, had to save in a text file with the name "CFBIETE1.TXT". Are there more files with software offers,  you had to number these files. Exact so is it with the software requests, these files are called "CFSUCHE1.TXT" and so on. This is important, that not requests in the list come as offers and offers not come as Requests.The disks had to have a adress label, which contains your precise address with telephon number.You get your disks not back. </text>
  154.     </content>
  155.     <content>
  156.         <layer>card</layer>
  157.         <id>5</id>
  158.         <text><span class="style1">n mouseup  if the OptionKey is down then    L√∂scheNurText    exit mouseup  end if  if the short id of this card is 6121 then    answer "This is the reference card" && ¬¨    "and therefore undeletable!" & return & return & ¬¨    "Only the text would be removed."    L√∂scheNurText    set the hilite of cd btn "markiert" to false    exit mouseup  end if  domenu "delete card"  go prev cdend mouseupon L√∂scheNurText  put empty into bg fld "Anzeigentext"  put empty into bg fld "Rubinummer"  put empty into bg fld "Art"  set the hilite of cd btn "Markiert" to falseend L√∂scheNurText</span></text>
  159.     </content>
  160.     <name></name>
  161.     <script></script>
  162. </card>
  163.  
  164.  
  165. card_2072.xml
  166. <?xml version="1.0" encoding="utf-8" ?>
  167. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  168. <card>
  169.     <id>2072</id>
  170.     <filler1>0</filler1>
  171.     <cantDelete> <false /> </cantDelete>
  172.     <showPict> <true /> </showPict>
  173.     <dontSearch> <false /> </dontSearch>
  174.     <owner>2808</owner>
  175.     <link rel="stylesheet" type="text/css" href="stylesheet_3118.css" />
  176.     <part>
  177.         <id>1</id>
  178.         <type>field</type>
  179.         <visible> <true /> </visible>
  180.         <dontWrap> <false /> </dontWrap>
  181.         <dontSearch> <false /> </dontSearch>
  182.         <sharedText> <false /> </sharedText>
  183.         <fixedLineHeight> <false /> </fixedLineHeight>
  184.         <autoTab> <false /> </autoTab>
  185.         <lockText> <false /> </lockText>
  186.         <rect>
  187.             <left>0</left>
  188.             <top>0</top>
  189.             <right>512</right>
  190.             <bottom>73</bottom>
  191.         </rect>
  192.         <style>scrolling</style>
  193.         <autoSelect> <false /> </autoSelect>
  194.         <showLines> <false /> </showLines>
  195.         <wideMargins> <false /> </wideMargins>
  196.         <multipleLines> <false /> </multipleLines>
  197.         <reservedFamily> 0 </reservedFamily>
  198.         <titleWidth>0</titleWidth>
  199.         <icon>0</icon>
  200.         <textAlign>left</textAlign>
  201.         <font>Geneva</font>
  202.         <textSize>12</textSize>
  203.         <textStyle>plain</textStyle>
  204.         <textHeight>16</textHeight>
  205.         <name>card script</name>
  206.         <script></script>
  207.     </part>
  208.     <part>
  209.         <id>2</id>
  210.         <type>field</type>
  211.         <visible> <true /> </visible>
  212.         <dontWrap> <false /> </dontWrap>
  213.         <dontSearch> <false /> </dontSearch>
  214.         <sharedText> <false /> </sharedText>
  215.         <fixedLineHeight> <false /> </fixedLineHeight>
  216.         <autoTab> <false /> </autoTab>
  217.         <lockText> <true /> </lockText>
  218.         <rect>
  219.             <left>0</left>
  220.             <top>73</top>
  221.             <right>512</right>
  222.             <bottom>136</bottom>
  223.         </rect>
  224.         <style>scrolling</style>
  225.         <autoSelect> <false /> </autoSelect>
  226.         <showLines> <false /> </showLines>
  227.         <wideMargins> <false /> </wideMargins>
  228.         <multipleLines> <false /> </multipleLines>
  229.         <reservedFamily> 0 </reservedFamily>
  230.         <titleWidth>0</titleWidth>
  231.         <icon>0</icon>
  232.         <textAlign>left</textAlign>
  233.         <font>Geneva</font>
  234.         <textSize>12</textSize>
  235.         <textStyle>plain</textStyle>
  236.         <textHeight>16</textHeight>
  237.         <name></name>
  238.         <script></script>
  239.     </part>
  240.     <part>
  241.         <id>3</id>
  242.         <type>field</type>
  243.         <visible> <true /> </visible>
  244.         <dontWrap> <false /> </dontWrap>
  245.         <dontSearch> <false /> </dontSearch>
  246.         <sharedText> <false /> </sharedText>
  247.         <fixedLineHeight> <false /> </fixedLineHeight>
  248.         <autoTab> <false /> </autoTab>
  249.         <lockText> <false /> </lockText>
  250.         <rect>
  251.             <left>0</left>
  252.             <top>136</top>
  253.             <right>512</right>
  254.             <bottom>241</bottom>
  255.         </rect>
  256.         <style>scrolling</style>
  257.         <autoSelect> <false /> </autoSelect>
  258.         <showLines> <false /> </showLines>
  259.         <wideMargins> <false /> </wideMargins>
  260.         <multipleLines> <false /> </multipleLines>
  261.         <reservedFamily> 0 </reservedFamily>
  262.         <titleWidth>0</titleWidth>
  263.         <icon>0</icon>
  264.         <textAlign>left</textAlign>
  265.         <font>Geneva</font>
  266.         <textSize>12</textSize>
  267.         <textStyle>plain</textStyle>
  268.         <textHeight>16</textHeight>
  269.         <name></name>
  270.         <script></script>
  271.     </part>
  272.     <part>
  273.         <id>4</id>
  274.         <type>field</type>
  275.         <visible> <true /> </visible>
  276.         <dontWrap> <false /> </dontWrap>
  277.         <dontSearch> <false /> </dontSearch>
  278.         <sharedText> <false /> </sharedText>
  279.         <fixedLineHeight> <false /> </fixedLineHeight>
  280.         <autoTab> <false /> </autoTab>
  281.         <lockText> <false /> </lockText>
  282.         <rect>
  283.             <left>0</left>
  284.             <top>241</top>
  285.             <right>512</right>
  286.             <bottom>342</bottom>
  287.         </rect>
  288.         <style>scrolling</style>
  289.         <autoSelect> <false /> </autoSelect>
  290.         <showLines> <false /> </showLines>
  291.         <wideMargins> <false /> </wideMargins>
  292.         <multipleLines> <false /> </multipleLines>
  293.         <reservedFamily> 0 </reservedFamily>
  294.         <titleWidth>0</titleWidth>
  295.         <icon>0</icon>
  296.         <textAlign>left</textAlign>
  297.         <font>Geneva</font>
  298.         <textSize>12</textSize>
  299.         <textStyle>plain</textStyle>
  300.         <textHeight>16</textHeight>
  301.         <name></name>
  302.         <script></script>
  303.     </part>
  304.     <content>
  305.         <layer>card</layer>
  306.         <id>1</id>
  307.         <text>-- bg fld 13 contains kind of advertisements in this sequence:-- Rubrik#, Computertyp, underrubric, a number between 2-5:-- 2 = OFFER, REQUEST, 3 =QUESTION, ANSWER, INFORMATION, 5 = ALL,-- 0 = NO KIND OF ADVERTISEMENT AVAILABLEon openstack  if the screenrect = "0,0,512,342" then hide menubarend openstackon closestack  put the freesize of this stack into tmp  if tmp > 0 then    answer "This stack contains unused free size and will" ¬¨    && "therefore compacted." with "Cancel" or "OK"    if it is "OK" then domenu "Compact Stack"  end if  pass closestackend closestackon Swap  -- Umwandeln von Umlauten in andere Zeichen, so da√ü die Umlaute  -- richtig auf dem PC erscheinen -- SCHWIERIG, aber es geht  get the number of chars of bg fld "Export-Text"  put it into WieOft  repeat with i = 0 to WieOft    set cursor to busy    put char i of bg fld "Export-Text" into tmp    if chartonum of tmp is 143 then put "√§" into char i of bg fld "Export-Text" -- √®    if chartonum of tmp is 144 then put "√†" into char i of bg fld "Export-Text" -- √™    if chartonum of tmp is 128 then put "√©" into char i of bg fld "Export-Text" -- √Ñ    if chartonum of tmp is 138 then put "√ë" into char i of bg fld "Export-Text" -- √§    if chartonum of tmp is 133 then put "√¥" into char i of bg fld "Export-Text" -- √ñ    if chartonum of tmp is 154 then put "√Æ" into char i of bg fld "Export-Text" -- √∂    if chartonum of tmp is 134 then put "√∂" into char i of bg fld "Export-Text"-- √ú    if chartonum of tmp is 159 then put "√Ö" into char i of bg fld "Export-Text" -- √º    if chartonum of tmp is 135 then put "‚Ć" into char i of bg fld "Export-Text" -- √°    if chartonum of tmp is 136 then put "√ñ" into char i of bg fld "Export-Text" -- √†    if chartonum of tmp is 142 then put "√á" into char i of bg fld "Export-Text" -- √©    if chartonum of tmp is 137 then put "√â" into char i of bg fld "Export-Text" -- √¢    if chartonum of tmp is 151 then put "¬¢" into char i of bg fld "Export-Text" -- √≥    if chartonum of tmp is 152 then put "√Ø" into char i of bg fld "Export-Text" -- √≤    if chartonum of tmp is 153 then put "√¨" into char i of bg fld "Export-Text" -- √¥    if "√ü" is in tmp then put "¬∑" into char i of bg fld "Export-Text"    if "¬ß" is in tmp then put "" into char i of bg fld "Export-Text"    if "¬¥" is in tmp then put "'" into char i of bg fld "Export-Text"    if "`" is in tmp then put "`" into char i of bg fld "Export-Text"  end repeatend Swap</text>
  308.     </content>
  309.     <content>
  310.         <layer>card</layer>
  311.         <id>2</id>
  312.         <text>on opencard  get number of cards of this bg  put it into bg fld "Insgesamt"  get number of this card  put it into tmp  subtract 4 from tmp  put tmp into bg fld "Nummer"  set the locktext of bg fld "Anzeigentext" to falseend opencardon openbackground  hide bg fld "Export-Text" -- the Field to Export  hide bg fld "Anzeigenarten"  set the hilite of bg btn "Cl. Advert¬¥s" to trueend openbackgroundon Warte  put "*" after msg  set cursor to busyend Warte</text>
  313.     </content>
  314.     <content>
  315.         <layer>card</layer>
  316.         <id>3</id>
  317.         <text>on opencard  put number of cards of this bg into bg fld "Insgesamt"  set the hilite of bg btn "Offer" to trueend opencardon openbackground  hide bg fld "Export-Text" -- fld for export  set the hilite of bg btn "Offer" to trueend openbackgroundon Warte  put "*" after msg  set cursor to busyend Warteon closecard  repeat with I = 1 to the number of chars of bg fld "Preis"    if char I of bg fld "Preis" = "." then      put "," into char I of bg fld "Preis"    end if  end repeat  pass closecardend closecard</text>
  318.     </content>
  319.     <content>
  320.         <layer>card</layer>
  321.         <id>4</id>
  322.         <text>on opencard  put number of cards of this bg into bg fld "Insgesamt"  set the hilite of bg btn "Request" to trueend opencardon openbackground  hide bg fld "Export-Text" -- fld for export  set the hilite of bg btn "Request" to trueend openbackgroundon Warte  put "*" after msg  set cursor to busyend Warteon closecard  repeat with I = 1 to the number of chars of bg fld "Preis"    if char I of bg fld "Preis" = "." then      put "," into char I of bg fld "Preis"    end if  end repeat  pass closecardend closecard</text>
  323.     </content>
  324.     <name></name>
  325.     <script></script>
  326. </card>
  327.  
  328.  
  329. card_3832.xml
  330. <?xml version="1.0" encoding="utf-8" ?>
  331. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  332. <card>
  333.     <id>3832</id>
  334.     <filler1>0</filler1>
  335.     <cantDelete> <false /> </cantDelete>
  336.     <showPict> <true /> </showPict>
  337.     <dontSearch> <false /> </dontSearch>
  338.     <owner>2808</owner>
  339.     <link rel="stylesheet" type="text/css" href="stylesheet_3118.css" />
  340.     <part>
  341.         <id>1</id>
  342.         <type>field</type>
  343.         <visible> <true /> </visible>
  344.         <dontWrap> <false /> </dontWrap>
  345.         <dontSearch> <false /> </dontSearch>
  346.         <sharedText> <false /> </sharedText>
  347.         <fixedLineHeight> <false /> </fixedLineHeight>
  348.         <autoTab> <false /> </autoTab>
  349.         <lockText> <false /> </lockText>
  350.         <rect>
  351.             <left>0</left>
  352.             <top>0</top>
  353.             <right>495</right>
  354.             <bottom>93</bottom>
  355.         </rect>
  356.         <style>scrolling</style>
  357.         <autoSelect> <false /> </autoSelect>
  358.         <showLines> <false /> </showLines>
  359.         <wideMargins> <false /> </wideMargins>
  360.         <multipleLines> <false /> </multipleLines>
  361.         <reservedFamily> 0 </reservedFamily>
  362.         <titleWidth>0</titleWidth>
  363.         <icon>0</icon>
  364.         <textAlign>left</textAlign>
  365.         <font>Geneva</font>
  366.         <textSize>12</textSize>
  367.         <textStyle>plain</textStyle>
  368.         <textHeight>16</textHeight>
  369.         <name></name>
  370.         <script></script>
  371.     </part>
  372.     <part>
  373.         <id>2</id>
  374.         <type>field</type>
  375.         <visible> <true /> </visible>
  376.         <dontWrap> <false /> </dontWrap>
  377.         <dontSearch> <false /> </dontSearch>
  378.         <sharedText> <false /> </sharedText>
  379.         <fixedLineHeight> <false /> </fixedLineHeight>
  380.         <autoTab> <false /> </autoTab>
  381.         <lockText> <false /> </lockText>
  382.         <rect>
  383.             <left>17</left>
  384.             <top>92</top>
  385.             <right>512</right>
  386.             <bottom>206</bottom>
  387.         </rect>
  388.         <style>scrolling</style>
  389.         <autoSelect> <false /> </autoSelect>
  390.         <showLines> <false /> </showLines>
  391.         <wideMargins> <false /> </wideMargins>
  392.         <multipleLines> <false /> </multipleLines>
  393.         <reservedFamily> 0 </reservedFamily>
  394.         <titleWidth>0</titleWidth>
  395.         <icon>0</icon>
  396.         <textAlign>left</textAlign>
  397.         <font>Geneva</font>
  398.         <textSize>12</textSize>
  399.         <textStyle>bold</textStyle>
  400.         <textHeight>16</textHeight>
  401.         <name></name>
  402.         <script></script>
  403.     </part>
  404.     <part>
  405.         <id>3</id>
  406.         <type>field</type>
  407.         <visible> <true /> </visible>
  408.         <dontWrap> <false /> </dontWrap>
  409.         <dontSearch> <false /> </dontSearch>
  410.         <sharedText> <false /> </sharedText>
  411.         <fixedLineHeight> <false /> </fixedLineHeight>
  412.         <autoTab> <false /> </autoTab>
  413.         <lockText> <true /> </lockText>
  414.         <rect>
  415.             <left>0</left>
  416.             <top>206</top>
  417.             <right>512</right>
  418.             <bottom>342</bottom>
  419.         </rect>
  420.         <style>scrolling</style>
  421.         <autoSelect> <false /> </autoSelect>
  422.         <showLines> <false /> </showLines>
  423.         <wideMargins> <false /> </wideMargins>
  424.         <multipleLines> <false /> </multipleLines>
  425.         <reservedFamily> 0 </reservedFamily>
  426.         <titleWidth>0</titleWidth>
  427.         <icon>0</icon>
  428.         <textAlign>left</textAlign>
  429.         <font>Geneva</font>
  430.         <textSize>12</textSize>
  431.         <textStyle>plain</textStyle>
  432.         <textHeight>16</textHeight>
  433.         <name></name>
  434.         <script></script>
  435.     </part>
  436.     <content>
  437.         <layer>card</layer>
  438.         <id>1</id>
  439.         <text>__________________________________________________________A note for programers:#PROGEIN  - switches the program font (Courier) on,#PROGAUS - Switches the program font (Courier) off.Attention to not forgot to use the variable #PROGAUS and that the Program listings are not wider as 40 characters each line.__________________________________________________________The used variables may not placed in the Classified Advertisements text.The file header is placed at the beginning of every file. These declarations are required, also when the Advertisements contains no adress, Telephone number e.g.  Else will the Anzeigen not published!After this header follows the Classified Advertisements texts.All Advertisements of a person belongs to one file, therefore make not for any Advertisements a file! On the disk should be only placed the text file and for backup still one or two copies of this file, "at the best in a SIK directory". The file should be named "CF.TXT". Important is the extension "TXT", because only these can be imported (please attention: 8 chars + "." + "TXT" by DOS standard!).</text>
  440.     </content>
  441.     <content>
  442.         <layer>card</layer>
  443.         <id>2</id>
  444.         <text>Important rules for the disk:- It placed may only the .TXT-Dateien in the root directory .- Make not for any Classified Advertisement a particular file!   File: variable header, Advertisement, Advertisement, ...- Backup files only in a SIK directory!- Use only unformated text.- At text programs save as "ASCII text"- Exclusive use the describes variables!- Only texts with the extension .TXT can be imported!-  Stamp right. The Publish¬¥ Firm takes not over excess postage!- Texts on disk¬¥s are not consignments!- activate not the disk¬¥s write-protect!</text>
  445.     </content>
  446.     <content>
  447.         <layer>card</layer>
  448.         <id>3</id>
  449.         <text>on mouseup  Global Computersystem, unterrubrik  put bg fld "Rubinummer" into tmp  if tmp is empty then put 700 into tmp  ask "In which rubric may this advertisement come out?" with tmp  if the result is "Cancel" then exit mouseup  if it is not empty then ¬¨  put it into bg fld "Rubinummer"    -- Anzeigenart erfragen:  put 5 into K  put "Get kind of small advertisement..." into msg  repeat with i = 1 to the number of lines of bg fld "Anzeigenarten"    set cursor to busy    put first item of line i of bg fld "Anzeigenarten" into tmp    if tmp < 1000 then put "0" before tmp    if tmp = bg fld "Rubinummer" then      set cursor to busy      put item 2 of line i of bg fld "Anzeigenarten" into Computersystem      put item 3 of line i of bg fld "Anzeigenarten" into Unterrubrik      put item 4 of line i of bg fld "Anzeigenarten" into K -- welche arten    end if  end repeat  put empty into msg  hide msg  if k = 5 then    FrageAlles    exit mouseup  end if  if k = 2 then    BieteOderSuche    exit mouseup  end if  if k = 3 then    FAI    exit mouseup  end if  if k = 0 then    answer "This rubric contains no kind of advertisement." & ¬¨    return & "Therefore believe the field" && quote & Anzeigenart¬¨    & quote && "empty."    put empty into bg fld "Art"  end ifend mouseupon BieteOderSuche  global Computersystem, Unterrubrik  answer "This advertisement comes out in" & return & "Rubrik" ¬¨  && bg fld "Rubinummer" & "/" & computersystem & "," & return & ¬¨  unterrubrik ¬¨  & "." & return & "Chose a kind of advertisement:" ¬¨  with "Offer" or "Request"  if it is "Offer" then put "BIETE" into bg fld "Art"  if it is "Request" then put "SUCHE" into bg fld "Art"end BieteOderSucheon FAI  global Computersystem, Unterrubrik  answer "This advertisement comes out in" & return & "Rubrik" ¬¨  && bg fld "Rubinummer" & "/" & computersystem & "," & return & ¬¨  unterrubrik ¬¨  & "." & return & "Chose a kind of advertisement:" ¬¨  with "Question" or "Answer" or "Information"  if it is "Question" then put "FRAGE" into bg fld "Art"  if it is "Answer" then put "ANTWORT" into bg fld "Art"  if it is "Information" then put "INFO" into bg fld "Art"end FAIon FrageAlles  global Computersystem, Unterrubrik  ask "This advertisement comes out in" & return & "Rubrik" ¬¨  && bg fld "Rubinummer" & "/" & computersystem & "," & return & ¬¨  unterrubrik ¬¨  & "." & return & "Chose a kind of advertisement:" with ¬¨  "Offer, Request, Question, Answer, Information, Without"  if it is "Offer" then put "BIETE" into bg fld "Art"  if it is "Request" then put "SUCHE" into bg fld "Art"  if it is "Question" then put "FRAGE" into bg fld "Art"  if it is "Answer" then put "ANTWORT" into bg fld "Art"  if it is "Information" then put "INFO" into bg fld "Art"  if it is "Without" then put empty into bg fld "Art"end FrageAlles</text>
  450.     </content>
  451.     <name></name>
  452.     <script></script>
  453. </card>
  454.  
  455.  
  456. card_4066.xml
  457. <?xml version="1.0" encoding="utf-8" ?>
  458. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  459. <card>
  460.     <id>4066</id>
  461.     <filler1>0</filler1>
  462.     <cantDelete> <false /> </cantDelete>
  463.     <showPict> <true /> </showPict>
  464.     <dontSearch> <false /> </dontSearch>
  465.     <owner>2808</owner>
  466.     <link rel="stylesheet" type="text/css" href="stylesheet_3118.css" />
  467.     <part>
  468.         <id>1</id>
  469.         <type>field</type>
  470.         <visible> <true /> </visible>
  471.         <dontWrap> <false /> </dontWrap>
  472.         <dontSearch> <false /> </dontSearch>
  473.         <sharedText> <false /> </sharedText>
  474.         <fixedLineHeight> <false /> </fixedLineHeight>
  475.         <autoTab> <false /> </autoTab>
  476.         <lockText> <true /> </lockText>
  477.         <rect>
  478.             <left>0</left>
  479.             <top>0</top>
  480.             <right>363</right>
  481.             <bottom>115</bottom>
  482.         </rect>
  483.         <style>rectangle</style>
  484.         <autoSelect> <false /> </autoSelect>
  485.         <showLines> <false /> </showLines>
  486.         <wideMargins> <false /> </wideMargins>
  487.         <multipleLines> <false /> </multipleLines>
  488.         <reservedFamily> 0 </reservedFamily>
  489.         <titleWidth>0</titleWidth>
  490.         <icon>0</icon>
  491.         <textAlign>left</textAlign>
  492.         <font>Geneva</font>
  493.         <textSize>12</textSize>
  494.         <textStyle>plain</textStyle>
  495.         <textHeight>16</textHeight>
  496.         <name>End Script</name>
  497.         <script></script>
  498.     </part>
  499.     <part>
  500.         <id>3</id>
  501.         <type>field</type>
  502.         <visible> <true /> </visible>
  503.         <dontWrap> <false /> </dontWrap>
  504.         <dontSearch> <false /> </dontSearch>
  505.         <sharedText> <false /> </sharedText>
  506.         <fixedLineHeight> <false /> </fixedLineHeight>
  507.         <autoTab> <false /> </autoTab>
  508.         <lockText> <true /> </lockText>
  509.         <rect>
  510.             <left>0</left>
  511.             <top>115</top>
  512.             <right>512</right>
  513.             <bottom>181</bottom>
  514.         </rect>
  515.         <style>scrolling</style>
  516.         <autoSelect> <false /> </autoSelect>
  517.         <showLines> <false /> </showLines>
  518.         <wideMargins> <false /> </wideMargins>
  519.         <multipleLines> <false /> </multipleLines>
  520.         <reservedFamily> 0 </reservedFamily>
  521.         <titleWidth>0</titleWidth>
  522.         <icon>0</icon>
  523.         <textAlign>left</textAlign>
  524.         <font>Geneva</font>
  525.         <textSize>12</textSize>
  526.         <textStyle>plain</textStyle>
  527.         <textHeight>16</textHeight>
  528.         <name>export script</name>
  529.         <script></script>
  530.     </part>
  531.     <part>
  532.         <id>4</id>
  533.         <type>field</type>
  534.         <visible> <true /> </visible>
  535.         <dontWrap> <false /> </dontWrap>
  536.         <dontSearch> <false /> </dontSearch>
  537.         <sharedText> <false /> </sharedText>
  538.         <fixedLineHeight> <false /> </fixedLineHeight>
  539.         <autoTab> <false /> </autoTab>
  540.         <lockText> <true /> </lockText>
  541.         <rect>
  542.             <left>0</left>
  543.             <top>181</top>
  544.             <right>512</right>
  545.             <bottom>260</bottom>
  546.         </rect>
  547.         <style>scrolling</style>
  548.         <autoSelect> <false /> </autoSelect>
  549.         <showLines> <false /> </showLines>
  550.         <wideMargins> <false /> </wideMargins>
  551.         <multipleLines> <false /> </multipleLines>
  552.         <reservedFamily> 0 </reservedFamily>
  553.         <titleWidth>0</titleWidth>
  554.         <icon>0</icon>
  555.         <textAlign>left</textAlign>
  556.         <font>Geneva</font>
  557.         <textSize>12</textSize>
  558.         <textStyle>plain</textStyle>
  559.         <textHeight>16</textHeight>
  560.         <name>export script</name>
  561.         <script></script>
  562.     </part>
  563.     <part>
  564.         <id>5</id>
  565.         <type>field</type>
  566.         <visible> <true /> </visible>
  567.         <dontWrap> <false /> </dontWrap>
  568.         <dontSearch> <false /> </dontSearch>
  569.         <sharedText> <false /> </sharedText>
  570.         <fixedLineHeight> <false /> </fixedLineHeight>
  571.         <autoTab> <false /> </autoTab>
  572.         <lockText> <true /> </lockText>
  573.         <rect>
  574.             <left>0</left>
  575.             <top>259</top>
  576.             <right>512</right>
  577.             <bottom>342</bottom>
  578.         </rect>
  579.         <style>scrolling</style>
  580.         <autoSelect> <false /> </autoSelect>
  581.         <showLines> <false /> </showLines>
  582.         <wideMargins> <false /> </wideMargins>
  583.         <multipleLines> <false /> </multipleLines>
  584.         <reservedFamily> 0 </reservedFamily>
  585.         <titleWidth>0</titleWidth>
  586.         <icon>0</icon>
  587.         <textAlign>left</textAlign>
  588.         <font>Geneva</font>
  589.         <textSize>12</textSize>
  590.         <textStyle>plain</textStyle>
  591.         <textHeight>16</textHeight>
  592.         <name></name>
  593.         <script></script>
  594.     </part>
  595.     <content>
  596.         <layer>card</layer>
  597.         <id>1</id>
  598.         <text>on mouseUp  Answer "Quit to:                                        No," with ¬¨  "HyperCard" or "MacOS" or "Cancel"  if it is "Cancel" then exit mouseup  if it is "MacOS" then domenu "Quit HyperCard"  if it is "HyperCard" then domenu "Home"end mouseUp</text>
  599.     </content>
  600.     <content>
  601.         <layer>card</layer>
  602.         <id>3</id>
  603.         <text>-- 
  604.  = returnon mouseup  global Pathname  lock screen  go card id 7696  put empty into msg  put empty into Export  if cd fld "#Name" is empty then    Abbruch    exit mouseup  end if  if cd fld "#STRASSE" is empty then    Abbruch    exit mouseup  end if  if cd fld "#PLZ" is empty then    Abbruch    exit mouseup  end if  if cd fld "#ORT" is empty then    Abbruch    exit mouseup  end if    ask "Text file export as:" with "CF.TXT"  if it is "" then    go back    exit mouseup  end if  put it into Fn      -- DATEIKOPF -------------------------------------------------  if cd fld "#VORNAME" is not empty then    put "#VORNAME=" into Export    put cd fld "#VORNAME" & 
  605.  after Export -- RETURN    warte  end if  if cd fld "#NAME" is not empty then    put "#NAME=" after Export    put cd fld "#NAME" & 
  606.  after Export    warte  end if  if cd fld "#STRASSE" is not empty then    put "#STRASSE=" after Export    put cd fld "#STRASSE" & 
  607.  after Export    warte  end if  if cd fld "#LAND" is not empty then    put "#LAND=" after Export    put cd fld "#LAND" & 
  608.  after Export    warte  end if  if cd fld "#PLZ" is not empty then    put "#PLZ=" after Export    put cd fld "#PLZ" & 
  609.  after Export    warte  end if  if cd fld "#ORT" is not empty then    put "#ORT=" after Export    put cd fld "#ORT" & 
  610.  after Export    warte  end if  if cd fld "#TELEFON" is not empty then    put "#TELEFON=" after Export    put cd fld "#TELEFON" & 
  611.  after Export    warte  end if  if cd fld "#VERMERK" is not empty then    put "#VERMERK=" after Export    put cd fld "#VERMERK" & 
  612.  after Export    warte  end if  if cd fld "#TELEFAX" is not empty then    put "#TELEFAX=" after Export    put cd fld "#TELEFAX" & 
  613.  after Export    warte  end if  if cd fld "#PSEUDO" is not empty then    put "#PSEUDO=" after Export    put cd fld "#PSEUDO" & 
  614.  after Export    warte  end if  put "#ZEICHENSATZ=" after Export  put cd fld "#ZEICHENSATZ" & 
  615.  after Export  put "#ZEITSCHRIFT=" after Export  put cd fld "#ZEITSCHRIFT" & 
  616.  after Export    -- ANZEIGENTEXTE -----------------------------------------------  go back  lock screen  push card -- then pop card  put export into bg fld "Export-Text"  go cd ID 2108  put return after bg fld "Export-Text"  repeat for bg fld "insgesamt"    if bg fld "Anzeigentext" is empty then ¬¨      -- no empty    set the hilite of cd btn "Markiert" to false  -- Advertisement export    if the hilite of cd btn "Markiert" is true then      put "#RUBRIK=" & bg fld "Rubinummer" & "-" & bg fld "Art" & 
  617.  ¬¨      after bg fld "Export-Text"      put the number of chars of bg fld "Anzeigentext" into tmp      put 1 into Zaehler      repeat with I = 1 to tmp        set cursor to busy                if i = "#" then          put "
  618. " after bg fld "Export-Text"          put 1 into Zaehler        end if        put char I of bg fld "Anzeigentext" after bg fld "Export-Text"        add 1 to Zaehler        if i = return then          put "
  619. " after bg fld "Export-Text"          put 1 into Zaehler        end if        if Zaehler > 69 then          if ((char I of bg fld "Anzeigentext" = " ") or ¬¨          (char I of bg fld "Anzeigentext" = "-")) then            put "
  620. " after bg fld "Export-Text"            put 1 into Zaehler            put "*" after msg          end if        end if      end repeat      put 
  621.  after bg fld "Export-Text"    end if -- 
  622.  = return    warte    go next cd  end repeat  pop card  swap  prefix  put Pathname & "DISKETTE:" & Fn into Dateiname  open file Dateiname  write bg fld "Export-Text" to file Dateiname  close file Dateiname  put "DISKETTE:SIK:" after Pathname  put Pathname & Fn into Dateiname  open file Dateiname  write bg fld "Export-Text" to file Dateiname  close file Dateiname  set cursor to arrow  play boing  put "Ready!" into msg  unlock screenend mouseupon Abbruch  answer "Required statements missed!" & return & ¬¨  "Please fill in..."  go back  click at the loc of bg btn "Variable" with optionKey  unlock screenend Abbruchon Prefix  global Pathname  put the long name of this stack into Pathname  put the short name of this stack into Stackname  delete word 1 of Pathname  put the number of chars of Pathname into PnLength  put the number of chars of Stackname into SnLength  repeat for SnLength + 2    delete last char of Pathname  end repeat  delete first char of Pathname  put ":" after Pathnameend Prefix</text>
  623.     </content>
  624.     <content>
  625.         <layer>card</layer>
  626.         <id>4</id>
  627.         <text>-- 
  628.  = returnon mouseup  global Pathname  lock screen  go card id 7696  put empty into msg  put empty into Export  if cd fld "#Name" is empty then    Abbruch    exit mouseup  end if  if cd fld "#STRASSE" is empty then    Abbruch    exit mouseup  end if  if cd fld "#PLZ" is empty then    Abbruch    exit mouseup  end if  if cd fld "#ORT" is empty then    Abbruch    exit mouseup  end if    ask "Text file export as:" with "CFBIETE1.TXT"  if it is "" then    go back    exit mouseup  end if  put it into Fn      -- DATEIKOPF -------------------------------------------------  if cd fld "#VORNAME" is not empty then    put "#VORNAME=" into Export    put cd fld "#VORNAME" & "
  629. " after Export -- 
  630.  = RETURN    warte  end if  if cd fld "#NAME" is not empty then    put "#NAME=" after Export    put cd fld "#NAME" & "
  631. " after Export    warte  end if  if cd fld "#STRASSE" is not empty then    put "#STRASSE=" after Export    put cd fld "#STRASSE" & "
  632. " after Export    warte  end if  if cd fld "#LAND" is not empty then    put "#LAND=" after Export    put cd fld "#LAND" & "
  633. " after Export    warte  end if  if cd fld "#PLZ" is not empty then    put "#PLZ=" after Export    put cd fld "#PLZ" & "
  634. " after Export    warte  end if  if cd fld "#ORT" is not empty then    put "#ORT=" after Export    put cd fld "#ORT" & "
  635. " after Export    warte  end if  if cd fld "#TELEFON" is not empty then    put "#TELEFON=" after Export    put cd fld "#TELEFON" & "
  636. " after Export    warte  end if  if cd fld "#TELEFAX" is not empty then    put "#TELEFAX=" after Export    put cd fld "#TELEFAX" & "
  637. " after Export    warte  end if  put "#SOFTLIST" & "
  638. " after Export  go back  put export into bg fld "Export-Text"    -- LISTENANGEBOTE -----------------------------------------------  lock screen  push card -- danach pop card  go cd ID 6165  put return after bg fld "Export-Text"  repeat for bg fld "insgesamt"    if bg fld "Plattform" is empty then ¬¨      -- no empty    set the hilite of cd btn "Markiert" to false  -- Advertisement export    if bg fld "Hauptrubrik" is empty then      go next cd      next repeat    end if    if bg fld "Unterrubrik" is empty then      go next cd      next repeat    end if    if the hilite of cd btn "Markiert" is true then      put bg fld "Plattform" & ";" after bg fld "Export-Text"      put bg fld "Hauptrubrik" & ";" after bg fld "Export-Text"      put bg fld "Unterrubrik" & ";" after bg fld "Export-Text"      put bg fld "Produktname" & ";" after bg fld "Export-Text"      put bg fld "Vermerk" & ";" after bg fld "Export-Text"      put bg fld "Hersteller" & ";" after bg fld "Export-Text"      put bg fld "Betriebssystem" & ";" after bg fld "Export-Text"      put bg fld "Sprache" & ";" after bg fld "Export-Text"      put bg fld "Datentr√§ger" & ";" after bg fld "Export-Text"      put bg fld "Art" & ";" after bg fld "Export-Text"      put bg fld "Zustand" & ";" after bg fld "Export-Text"      put bg fld "Preisart" & ";" after bg fld "Export-Text"      put bg fld "Preis" after bg fld "Export-Text"      put "
  639. " after bg fld "Export-Text" -- return    end if    warte    go next cd  end repeat  pop card  swap  prefix  put Pathname & "DISKETTE:" & Fn into Dateiname  open file Dateiname  write bg fld "Export-Text" to file Dateiname  close file Dateiname  put "DISKETTE:SIK:" after Pathname  put Pathname & Fn into Dateiname  open file Dateiname  write bg fld "Export-Text" to file Dateiname  close file Dateiname  set cursor to arrow  play boing  put " - Ready!" after msg  unlock screenend mouseupon Abbruch  answer "Required statements missed!" & return & ¬¨  "Please fill in..."  go back  click at the loc of bg btn "Variable" with optionKeyend Abbruchon Prefix  global Pathname  put the long name of this stack into Pathname  put the short name of this stack into Stackname  delete word 1 of Pathname  put the number of chars of Pathname into PnLength  put the number of chars of Stackname into SnLength  repeat for SnLength + 2    delete last char of Pathname  end repeat  delete first char of Pathname  put ":" after Pathnameend Prefix</text>
  640.     </content>
  641.     <content>
  642.         <layer>card</layer>
  643.         <id>5</id>
  644.         <text>-- 
  645.  = returnon mouseup  global Pathname  lock screen  go card id 7696  put empty into msg  put empty into Export  if cd fld "#Name" is empty then    Abbruch    exit mouseup  end if  if cd fld "#STRASSE" is empty then    Abbruch    exit mouseup  end if  if cd fld "#PLZ" is empty then    Abbruch    exit mouseup  end if  if cd fld "#ORT" is empty then    Abbruch    exit mouseup  end if    ask "Text file export as:" with "CFSUCHE1.TXT"  if it is "" then    go back    exit mouseup  end if  put it into Fn      -- DATEIKOPF -------------------------------------------------  if cd fld "#VORNAME" is not empty then    put "#VORNAME=" into Export    put cd fld "#VORNAME" & 
  646.  after Export    warte  end if  if cd fld "#NAME" is not empty then    put "#NAME=" after Export    put cd fld "#NAME" & 
  647.  after Export    warte  end if  if cd fld "#STRASSE" is not empty then    put "#STRASSE=" after Export    put cd fld "#STRASSE" & 
  648.  after Export    warte  end if  if cd fld "#LAND" is not empty then    put "#LAND=" after Export    put cd fld "#LAND" & 
  649.  after Export    warte  end if  if cd fld "#PLZ" is not empty then    put "#PLZ=" after Export    put cd fld "#PLZ" & 
  650.  after Export -- 
  651.  = RETURN    warte  end if  if cd fld "#ORT" is not empty then    put "#ORT=" after Export    put cd fld "#ORT" & 
  652.  after Export    warte  end if  if cd fld "#TELEFON" is not empty then    put "#TELEFON=" after Export    put cd fld "#TELEFON" & 
  653.  after Export    warte  end if  if cd fld "#TELEFAX" is not empty then    put "#TELEFAX=" after Export    put cd fld "#TELEFAX" & 
  654.  after Export    warte  end if  put "#SOFTLIST" & "
  655. " after Export  go back  put export into bg fld "Export-Text"    -- LISTENANGEBOTE -----------------------------------------------  lock screen  push card -- danach pop card  go cd ID 8637  put return after bg fld "Export-Text"  repeat for bg fld "insgesamt"    if bg fld "Plattform" is empty then ¬¨      -- No empty    set the hilite of cd btn "Markiert" to false  -- Advertisement export    if bg fld "Hauptrubrik" is empty then      go next cd      next repeat    end if    if bg fld "Unterrubrik" is empty then      go next cd      next repeat    end if    if the hilite of cd btn "Markiert" is true then      put bg fld "Plattform" & ";" after bg fld "Export-Text"      put bg fld "Hauptrubrik" & ";" after bg fld "Export-Text"      put bg fld "Unterrubrik" & ";" after bg fld "Export-Text"      put bg fld "Produktname" & ";" after bg fld "Export-Text"      put bg fld "Vermerk" & ";" after bg fld "Export-Text"      put bg fld "Hersteller" & ";" after bg fld "Export-Text"      put bg fld "Betriebssystem" & ";" after bg fld "Export-Text"      put bg fld "Sprache" & ";" after bg fld "Export-Text"      put bg fld "Datentr√§ger" & ";" after bg fld "Export-Text"      put bg fld "Art" & ";" after bg fld "Export-Text"      put bg fld "Zustand" & ";" after bg fld "Export-Text"      put bg fld "Preisart" & ";" after bg fld "Export-Text"      put bg fld "Preis" after bg fld "Export-Text"      put "
  656. " after bg fld "Export-Text" -- return    end if    warte    go next cd  end repeat  pop card  swap  prefix  put Pathname & "DISKETTE:" & Fn into Dateiname  open file Dateiname  write bg fld "Export-Text" to file Dateiname  close file Dateiname  put "DISKETTE:SIK:" after Pathname  put Pathname & Fn into Dateiname  open file Dateiname  write bg fld "Export-Text" to file Dateiname  close file Dateiname  set cursor to arrow  play boing  put " - Ready!" after msg  unlock screenend mouseupon Abbruch  answer "Requird statements missed!" & return & ¬¨  "Please fill in..."  go back  click at the loc of bg btn "Variable" with optionKeyend Abbruchon Prefix  global Pathname  put the long name of this stack into Pathname  put the short name of this stack into Stackname  delete word 1 of Pathname  put the number of chars of Pathname into PnLength  put the number of chars of Stackname into SnLength  repeat for SnLength + 2    delete last char of Pathname  end repeat  delete first char of Pathname  put ":" after Pathnameend Prefix</text>
  657.     </content>
  658.     <name></name>
  659.     <script></script>
  660. </card>
  661.  
  662.  
  663. card_2850.xml
  664. <?xml version="1.0" encoding="utf-8" ?>
  665. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  666. <card>
  667.     <id>2850</id>
  668.     <filler1>0</filler1>
  669.     <cantDelete> <false /> </cantDelete>
  670.     <showPict> <true /> </showPict>
  671.     <dontSearch> <false /> </dontSearch>
  672.     <owner>2808</owner>
  673.     <link rel="stylesheet" type="text/css" href="stylesheet_3118.css" />
  674.     <part>
  675.         <id>1</id>
  676.         <type>field</type>
  677.         <visible> <true /> </visible>
  678.         <dontWrap> <false /> </dontWrap>
  679.         <dontSearch> <true /> </dontSearch>
  680.         <sharedText> <false /> </sharedText>
  681.         <fixedLineHeight> <false /> </fixedLineHeight>
  682.         <autoTab> <false /> </autoTab>
  683.         <lockText> <false /> </lockText>
  684.         <rect>
  685.             <left>0</left>
  686.             <top>179</top>
  687.             <right>512</right>
  688.             <bottom>244</bottom>
  689.         </rect>
  690.         <style>scrolling</style>
  691.         <autoSelect> <false /> </autoSelect>
  692.         <showLines> <false /> </showLines>
  693.         <wideMargins> <false /> </wideMargins>
  694.         <multipleLines> <false /> </multipleLines>
  695.         <reservedFamily> 0 </reservedFamily>
  696.         <titleWidth>0</titleWidth>
  697.         <icon>0</icon>
  698.         <textAlign>left</textAlign>
  699.         <font>Geneva</font>
  700.         <textSize>12</textSize>
  701.         <textStyle>plain</textStyle>
  702.         <textHeight>16</textHeight>
  703.         <name>About-Text</name>
  704.         <script></script>
  705.     </part>
  706.     <part>
  707.         <id>2</id>
  708.         <type>field</type>
  709.         <visible> <true /> </visible>
  710.         <dontWrap> <false /> </dontWrap>
  711.         <dontSearch> <false /> </dontSearch>
  712.         <sharedText> <false /> </sharedText>
  713.         <fixedLineHeight> <false /> </fixedLineHeight>
  714.         <autoTab> <false /> </autoTab>
  715.         <lockText> <false /> </lockText>
  716.         <rect>
  717.             <left>0</left>
  718.             <top>51</top>
  719.             <right>484</right>
  720.             <bottom>180</bottom>
  721.         </rect>
  722.         <style>scrolling</style>
  723.         <autoSelect> <false /> </autoSelect>
  724.         <showLines> <false /> </showLines>
  725.         <wideMargins> <false /> </wideMargins>
  726.         <multipleLines> <false /> </multipleLines>
  727.         <reservedFamily> 0 </reservedFamily>
  728.         <titleWidth>0</titleWidth>
  729.         <icon>0</icon>
  730.         <textAlign>left</textAlign>
  731.         <font>Geneva</font>
  732.         <textSize>12</textSize>
  733.         <textStyle>plain</textStyle>
  734.         <textHeight>16</textHeight>
  735.         <name>Hilfe</name>
  736.         <script></script>
  737.     </part>
  738.     <part>
  739.         <id>4</id>
  740.         <type>field</type>
  741.         <visible> <true /> </visible>
  742.         <dontWrap> <false /> </dontWrap>
  743.         <dontSearch> <false /> </dontSearch>
  744.         <sharedText> <false /> </sharedText>
  745.         <fixedLineHeight> <false /> </fixedLineHeight>
  746.         <autoTab> <false /> </autoTab>
  747.         <lockText> <false /> </lockText>
  748.         <rect>
  749.             <left>1</left>
  750.             <top>0</top>
  751.             <right>512</right>
  752.             <bottom>51</bottom>
  753.         </rect>
  754.         <style>shadow</style>
  755.         <autoSelect> <false /> </autoSelect>
  756.         <showLines> <false /> </showLines>
  757.         <wideMargins> <false /> </wideMargins>
  758.         <multipleLines> <false /> </multipleLines>
  759.         <reservedFamily> 0 </reservedFamily>
  760.         <titleWidth>0</titleWidth>
  761.         <icon>0</icon>
  762.         <textAlign>center</textAlign>
  763.         <font>Geneva</font>
  764.         <textSize>12</textSize>
  765.         <textStyle>underline</textStyle>
  766.         <textStyle>bold</textStyle>
  767.         <textHeight>16</textHeight>
  768.         <name></name>
  769.         <script></script>
  770.     </part>
  771.     <part>
  772.         <id>3</id>
  773.         <type>button</type>
  774.         <visible> <true /> </visible>
  775.         <reserved5> 0 </reserved5>
  776.         <reserved4> 0 </reserved4>
  777.         <reserved3> 0 </reserved3>
  778.         <reserved2> 0 </reserved2>
  779.         <reserved1> 0 </reserved1>
  780.         <enabled> <true /> </enabled>
  781.         <rect>
  782.             <left>413</left>
  783.             <top>16</top>
  784.             <right>507</right>
  785.             <bottom>47</bottom>
  786.         </rect>
  787.         <style>roundrect</style>
  788.         <showName> <true /> </showName>
  789.         <highlight> <false /> </highlight>
  790.         <autoHighlight> <false /> </autoHighlight>
  791.         <sharedHighlight> <true /> </sharedHighlight>
  792.         <family>0</family>
  793.         <titleWidth>0</titleWidth>
  794.         <icon>0</icon>
  795.         <textAlign>center</textAlign>
  796.         <font>Chicago</font>
  797.         <textSize>12</textSize>
  798.         <textStyle>plain</textStyle>
  799.         <name>Make It!</name>
  800.         <script>on mouseUpsend doit to this stackend mouseUp</script>
  801.     </part>
  802.     <part>
  803.         <id>5</id>
  804.         <type>button</type>
  805.         <visible> <true /> </visible>
  806.         <reserved5> 0 </reserved5>
  807.         <reserved4> 0 </reserved4>
  808.         <reserved3> 0 </reserved3>
  809.         <reserved2> 0 </reserved2>
  810.         <reserved1> 0 </reserved1>
  811.         <enabled> <true /> </enabled>
  812.         <rect>
  813.             <left>3</left>
  814.             <top>3</top>
  815.             <right>63</right>
  816.             <bottom>47</bottom>
  817.         </rect>
  818.         <style>roundrect</style>
  819.         <showName> <false /> </showName>
  820.         <highlight> <false /> </highlight>
  821.         <autoHighlight> <false /> </autoHighlight>
  822.         <sharedHighlight> <true /> </sharedHighlight>
  823.         <family>0</family>
  824.         <titleWidth>0</titleWidth>
  825.         <icon>14767</icon>
  826.         <textAlign>center</textAlign>
  827.         <font>Chicago</font>
  828.         <textSize>12</textSize>
  829.         <textStyle>plain</textStyle>
  830.         <name>About</name>
  831.         <script>on mouseupanswer "¬© 1996/97 Detlef Kahner, Germany"end mouseup</script>
  832.     </part>
  833.     <part>
  834.         <id>6</id>
  835.         <type>field</type>
  836.         <visible> <true /> </visible>
  837.         <dontWrap> <false /> </dontWrap>
  838.         <dontSearch> <false /> </dontSearch>
  839.         <sharedText> <false /> </sharedText>
  840.         <fixedLineHeight> <false /> </fixedLineHeight>
  841.         <autoTab> <false /> </autoTab>
  842.         <lockText> <false /> </lockText>
  843.         <rect>
  844.             <left>0</left>
  845.             <top>243</top>
  846.             <right>512</right>
  847.             <bottom>342</bottom>
  848.         </rect>
  849.         <style>scrolling</style>
  850.         <autoSelect> <false /> </autoSelect>
  851.         <showLines> <false /> </showLines>
  852.         <wideMargins> <false /> </wideMargins>
  853.         <multipleLines> <false /> </multipleLines>
  854.         <reservedFamily> 0 </reservedFamily>
  855.         <titleWidth>0</titleWidth>
  856.         <icon>0</icon>
  857.         <textAlign>left</textAlign>
  858.         <font>Geneva</font>
  859.         <textSize>12</textSize>
  860.         <textStyle>plain</textStyle>
  861.         <textHeight>16</textHeight>
  862.         <name></name>
  863.         <script></script>
  864.     </part>
  865.     <content>
  866.         <layer>card</layer>
  867.         <id>1</id>
  868.         <text>on mouseup  answer "Classified Advertisements Register program" & return & ¬¨  "for the Computerflohmarkt" ¬¨  && "(CF)" & return & return & return & ¬¨  "Shareware," & return & "¬© 1996/97 Detlef Kahner, Germany" & return & return & ¬¨  "By regular use" & return & "please remit $20 to my" & return & ¬¨  "bank account 2707 10-807" & return & ¬¨  "at Postbank M√ºnchen" & return & ¬¨  "BLZ 700 100 80"end mouseup</text>
  869.     </content>
  870.     <content>
  871.         <layer>card</layer>
  872.         <id>2</id>
  873.         <text>The file header has the follwing Rules. The particular dates are available as variables which at the head of ev¬¥ry file had to defined.Allowed variables are hereby:#VORNAME        - first name#NAME              - Name#STRASSE        - Street and House number#LAND              - country abbrevation (D, CH, A, NL and so on)#PLZ                - Postal code#ORT                - home#TELEFON         - telephone number (Form xxxxx/xxxxx, not (xxxxx)xxxxx)#VERMERK        - note to the telephone number, e. g. "from 18 o¬¥clock"#TELEFAX         - Telefax number#PSEUDO          - Pseudo#ZEICHENSATZ - font definition (absolutely Had To! "√ü,¬ß")#ZEITSCHRIFT  - intern variable for associate, absolut write!If a variable is not used, leave it simply out. But the variables for font definition and ZEITSCHRIFT are absolutely required.The font definition variable are used to identify the used font definition. The letters "√ü,¬ß" had to write after this variable, with comma seperated. If one of this letters can not be typed, type instead a zero (0).</text>
  874.     </content>
  875.     <content>
  876.         <layer>card</layer>
  877.         <id>4</id>
  878.         <text>T H I S  S T A C K  T R A N S L A T E  T H E  S T A C K" C F . E R F A S S U N G S P R O G R A M M "I N TO  E N G L I S H  . . .</text>
  879.     </content>
  880.     <content>
  881.         <layer>card</layer>
  882.         <id>6</id>
  883.         <text>0500,Apple II,Hardware,20510,Apple II,Software,20520,Apple II,Public Domain + Shareware,20530,Apple II,Clubs,20540,Apple II,contacts/practice exchange,30560,Apple II,Programmers,30570,Apple II,Literature,20580,Apple II,Search for exchange partner,00590,Apple II,Software Short Tests,00620,Apple II,Hardware news,00630,Apple II,Software news,00650,Apple II,very short listings,00700,Macintosh,All,51500,Casio,All,51700,Amiga, Hardware,21711,Amiga,Software Applications,21712,Amiga,Software Games,21720,Amiga,PD + Shareware,21730,Amiga,Clubs,21740,Amiga,contacts/practice exchange,31750,Amiga,Game Tips,31760,Amiga,Programmers,31770,Amiga,Literature,21780,Amiga,Search for exchange partner,01800,Amiga,Games Short Tests,01810,Amiga,User¬¥s Short Test,01820,Amiga,Hardware News,01830,Amiga,Software News,01850,Amiga,very short listings,01860,Amiga,Demos,21870,Amiga,Fanzines + Diskmags,21880,Amiga,Virus Service,22510,Hewlett Packard,All,53500,MSX,All,54200,Sharp,All,54400,TI 99/4A,All,54600,Triumph-Adler,All,55700,Literatur,Editions,26710,Literatur,Books,25720,Literatur,Manuals (hand books),2</text>
  884.     </content>
  885.     <name></name>
  886.     <script></script>
  887. </card>
  888.  
  889.  
  890.